// wikiepob`t@Cł
// noteloadnotesaveFILEĂg

sdim _4note,8000

mes "name read file"
var4input_read_file=""
input var4input_read_file,150,25
ID4input_read_file=stat

objsize 100,25
button "open file dialog",*do_open_dialog

mes "\nname save file"
var4input_save_file=""
input var4input_save_file,150,25
ID4input_save_file=stat

button "save file dialog",*do_save_dialog
mes ""

button "s",*do_hoge
stop

*do_hoge
notesel _4note
noteload var4input_read_file

repeat notemax
tmp=""
noteget tmp,cnt
noteadd " "+tmp,cnt,1
loop

notesave var4input_save_file

exec "notepad "+var4input_save_file
stop

*do_open_dialog
dialog "",16,"select file name"
var4input_read_file=refstr
objprm ID4input_read_file,var4input_read_file
stop

*do_save_dialog
dialog "",17,"select file name"
var4input_save_file=refstr
objprm ID4input_save_file,var4input_save_file
stop


